29210 POKE53280,6:POKE53281,6
29220 REM ANLEITUNG
29230 PRINT"[147]UNTERPROGRAMM 'INPUT AT'"
29240 PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
29250 PRINT"IN DEN 3 FOLGENDEN BEISPIELEN WIRD DIE"
29260 PRINT"ANWENDUNG DES UNTERPROGRAMMS ERKLAERT."
29270 PRINT"ANSCHLIESSEND KOENNEN SIE PER KNOPFDRUCK";
29280 PRINT"ALLE BEISPIELE LOESCHEN, DAMIT SICH IM "
29290 PRINT"SPEICHER NUR NOCH DAS UNTERPROGRAMM"
29300 PRINT"BEFINDET."
29310 PRINT"DIESER VORGANG IST JEDOCH ERST NACH"
29320 PRINT"DER MELDUNG 'READY' BEENDET[160]!!"
29330 PRINT"SIE KOENNEN DANN ENTWEDER IHR EIGENES"
29340 PRINT"PROGRAMM DAHINTER ODER DAVOR SCHREIBEN,"
29350 PRINT"ODER ES MIT HILFE EINES MERGE-PROGRAMMS"
29360 PRINT"AN EIN BEREITS GESCHRIEBENES PROGRAMM"
29370 PRINT"ANHAENGEN!"
29380 PRINT"DIE ZAHLEN VOR DEN BEISPIELEN STELLEN"
29390 PRINT"EINE BELIEBIGE ZEILENNUMMER IN IHREM"
29400 PRINT"PROGRAMM DAR!"
29410 Q1=24:Q2=14:GOSUB30400:PRINT"[158]B[146]EISPIELE[154]";
29420 GETI$:IFI$=""THEN29420
29430 IFI$<>"B"THEN29420
29440 PRINT"[147]1.BEISP.: ANFORDERUNG EINER ZAHL:"
29450 PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
29460 PRINT"120 Q1=22:Q2=15:Q3=6:Q7=1:GOSUB30000"
29470 PRINT"BEDEUTUNG:"
29480 PRINT"Q1 = ZEILE  DER EINGABE"
29490 PRINT"Q2 = SPALTE DER EINGABE"
29500 PRINT"Q3 = MAXIMALE ZEICHENZAHL
29510 [153]"Q7 = 1 WENN NUR ZAHLEN ZULAESSIG
29520 PRINT"WAS DARAUFHIN PASSIERT, SEHEN SIE IN"
29530 PRINT"ZEILE 12 SPALTE 15."
29540 PRINT"MACHEN SIE JETZT DIE GEFORDERTE EINGABE"
29550 PRINT"UND DRUECKEN SIE ANSCHLIESSEND 'RETURN'"
29560 Q1=22:Q2=15:Q3=6:Q7=1:GOSUB30000"
29570 Q1[178]18:Q2[178]0:[141]30400
29580 [153]"IHRE EINGABE STEHT DANN IM STRING Q4$."
29590 [153]"Q4$ = "Q4$"CONT"
29600 Q1[178]24:Q2[178]3:[141]30400:[153]"SYSNWAITAECHSTES BEISP.  GWAITLEICHES BEISP.CONT";
29610 [161]I$:[139]I$[178]""[167]29610
29620 [139]I$[178]"G"[167]29440
29630 [139]I$[179][177]"N"[167]29610
29640 [153]"LOAD2.BEISP.: ANFORDERUNG EINES STRINGS"
29650 [153]"TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("
29660 [153]"120 Q1=5:Q2=26:Q3=6:Q7=0:GOSUB30000"
29670 [153]"BEDEUTUNG:"
29680 [153]"Q1 = ZEILE  DER EINGABE"
29690 [153]"Q2 = SPALTE DER EINGABE"
29700 [153]"Q3 = MAXIMALE ZEICHENZAHL
29710 PRINT"Q7 = 0 WENN ALLE ZEICHEN ZULAESSIG"
29720 PRINT"WAS DARAUFHIN PASSIERT, SEHEN SIE IN"
29730 PRINT"ZEILE 5 SPALTE 26."
29740 PRINT"MACHEN SIE JETZT DIE GEFORDERTE EINGABE"
29750 PRINT"UND DRUECKEN SIE ANSCHLIESSEND 'RETURN'"
29760 Q1=5:Q2=26:Q3=10:Q7=0:GOSUB30000"
29770 Q1[178]19:Q2[178]0:[141]30400
29780 [153]"IHRE EINGABE STEHT DANN IM STRING Q4$."
29790 [153]"Q4$ = "Q4$"CONT"
29800 Q1[178]24:Q2[178]3:[141]30400:[153]"SYSNWAITAECHSTES BEISP.  GWAITLEICHES BEISP.CONT";
29810 [161]I$:[139]I$[178]""[167]29810
29820 [139]I$[178]"G"[167]29640
29830 [139]I$[179][177]"N"[167]29810
29840 [153]"LOAD3.BEISP.: DRUCKEN AN BELIEBIGER STELLE"
29850 [153]"TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("
29860 [153]"140 Q1=22:Q2=5:GOSUB30000
29870 PRINT"150 PRINT"CHR$(34);"TEST";CHR$(34)
29880 PRINT"BEDEUTUNG:"
29890 PRINT"Q1 = ZEILE  DES DRUCKS"
29900 PRINT"Q2 = SPALTE DES DRUCKS"
29910 PRINT"WAS DARAUFHIN PASSIERT, SEHEN SIE IN "
29920 PRINT"ZEILE 21 UND SPALTE 5. "
29930 PRINT"DAS WORT TEST WIRD IN ZEILE 22 UND "
29940 PRINT"SPALTE 15 GEDRUCKT."
29950 Q1=21:Q2=5:GOSUB30400:PRINT"TEST"
29960 Q1=24:Q2=2:GOSUB30400:PRINT"[158]L[146]OESCHEN DER BEISPIELPROGRAMMZEILEN";
29970 GETI$:IFI$=""THEN29970
29980 IFI$<>"L"THEN29970
29990 GOTO50000
30000 REM ***** INPUT AT ***************
30010 Q8=0:Q9=0:QB=Q1:QC=Q2
30020 IFQ1>-1THENGOSUB30400
30030 Q1=PEEK(214):Q2=PEEK(211)
30040 FORII=1TOQ3:PRINT" ";:NEXT
30050 GOSUB30400
30060 Q5=0:Q4$="":POKE1024+40*Q1+Q2,191
30070 FORII=631TO640:POKEII,0:NEXT
30080 Q5=Q5+1
30090 GETQ6$:IFQ6$=""THEN30090
30100 IFASC(Q6$)=34THEN30090
30110 IFASC(Q6$)=32ANDQ5<=1THEN30090
30120 IFASC(Q6$)=13THENPRINT:GOTO30350
30130 IFASC(Q6$)=20ORASC(Q6$)=157THEN30230
30140 IFQ7=1THEN30170
30150 IFASC(Q6$)<32ORASC(Q6$)>90THEN30090
30160 GOTO30280
30170 IFASC(Q6$)>=48ANDASC(Q6$)<=57THEN30280
30180 IFQ8=1THEN30200
30190 IFASC(Q6$)=46THENQ8=1:GOTO30280
30200 IFQ9=1THEN30220
30210 IFASC(Q6$)=45ANDQ5=1THENQ9=1:GOTO30280
30220 GOTO30090
30230 IFQ5<=1THEN30090
30240 Q2=Q2-1:GOSUB30400:Q8$=MID$(Q4$,Q5-1,1):IFQ8$="."THENQ8=0
30250 IFQ8$="-"THENQ9=0
30260 PRINT" ":GOSUB30400
30270 Q4$=LEFT$(Q4$,Q5-2):Q5=Q5-1:GOTO30090
30280 Q4$=Q4$+Q6$
30290 PRINT"";Q6$:Q2=Q2+1:GOSUB30400
30300 IFQ5<Q3THEN30080
30310 Q5=Q3+1:GETQ6$:IFQ6$=""THEN30310
30320 IFASC(Q6$)=20ORASC(Q6$)=157THEN30230
30330 IFASC(Q6$)=13THENPRINT:GOTO30350
30340 GOTO30310
30350 IFQ4$<>""THEN30380
30360 IFQA=0THEN30000
30370 Q1=QB:Q2=QC:GOSUB30400:PRINT" [146]";
30380 QA=0:Q7=0
30390 RETURN
30400 REM *** CURSOR POSITIONIEREN *****
30410 POKE214,Q1:POKE211,Q2:SYS58640
30420 RETURN
50000 REM *** UP ZEILEN LOESCHEN *******
50010 QS=29200:QE=29990:KN=QS
50020 PRINT"[147]";:IFKN=QETHENFORI=50000TO50050STEP10:PRINTI:NEXT:GOTO50040
50030 KN=KN+10:PRINT"[147]"KN:PRINT"KN="KN":QE="QE":GOTO50020"
50040 POKE631,19:FORI=632TO640:POKEI,13:NEXT:POKE198,7:IFKN<>QETHENEND
50050 PRINT"[154]":END